library(igraph)
Attaching package: ‘igraph’
The following objects are masked from ‘package:stats’:
decompose, spectrum
The following object is masked from ‘package:base’:
union
result_food_uft_DEL_k <- result_food_uft_DEL_k[,3:20]
head(result_food_uft_DEL_k)
EDL_Embedding = read.csv('/Users/xbasra/Documents/Data/Clustering_Food_Alergies/CsvData/EDL_Embedding.csv')
head(EDL_Embedding)
Em_corr <- cor(t(EDL_Embedding))
Em_corr[Em_corr < 0.9995] <- 0
network <- graph_from_adjacency_matrix( Em_corr, weighted=T, mode="undirected", diag=F)
plot(network)
set.seed(10)
#tsne_converted_food_DEL <- Rtsne(X = EDL_Embedding ,perplexity= 200, is_distance = FALSE, check_duplicates = FALSE)
tsne_converted_food_DEL <- Rtsne(X = EDL_Embedding ,perplexity= 150, is_distance = FALSE, check_duplicates = FALSE)
tsne_converted_food_DEL <- tsne_converted_food_DEL$Y %>%
data.frame() %>%
setNames(c("X", "Y"))
tsne_converted_food_DEL$cl <- factor(result_food_uft_DEL_k$cluster)
ggplot(tsne_converted_food_DEL, aes(x=X, y=Y, color=cl)) + geom_point()

#ggplot(aes(x = X, y = Y), data = tsne_converted_food_DEL) + geom_point()
library(plotly)
#packageVersion('plotly')
tsne_converted_food_DEL_3d <- Rtsne(X = EDL_Embedding ,perplexity= 150, dims = 3, is_distance = FALSE, check_duplicates = FALSE)
tsne_converted_food_DEL_3d <- tsne_converted_food_DEL_3d$Y %>%
data.frame() %>%
setNames(c("X", "Y", "Z"))
tsne_converted_food_DEL_3d$cl <- factor(result_food_uft_DEL_k$cluster)
p <- plot_ly(tsne_converted_food_DEL_3d, x = ~X, y = ~Y, z = ~Z, color = ~cl, colors = c('#BF382A', '#0C4B8E')) %>%
add_markers() %>%
layout(scene = list(xaxis = list(title = 'Dim1'),
yaxis = list(title = 'Dim2'),
zaxis = list(title = 'Dim3')))
p
LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKYGBge3J9CmxpYnJhcnkoaWdyYXBoKQpgYGAKCgpgYGB7cn0KcmVzdWx0X2Zvb2RfdWZ0X0RFTF9rIDwtIHJlc3VsdF9mb29kX3VmdF9ERUxfa1ssMzoyMF0KaGVhZChyZXN1bHRfZm9vZF91ZnRfREVMX2spCmBgYAoKCmBgYHtyfQpFRExfRW1iZWRkaW5nID0gcmVhZC5jc3YoJy9Vc2Vycy94YmFzcmEvRG9jdW1lbnRzL0RhdGEvQ2x1c3RlcmluZ19Gb29kX0FsZXJnaWVzL0NzdkRhdGEvRURMX0VtYmVkZGluZy5jc3YnKQpoZWFkKEVETF9FbWJlZGRpbmcpCmBgYAoKYGBge3J9CkVtX2NvcnIgPC0gY29yKHQoRURMX0VtYmVkZGluZykpCkVtX2NvcnJbRW1fY29yciA8IDAuOTk5NV0gPC0gMApuZXR3b3JrIDwtIGdyYXBoX2Zyb21fYWRqYWNlbmN5X21hdHJpeCggRW1fY29yciwgd2VpZ2h0ZWQ9VCwgbW9kZT0idW5kaXJlY3RlZCIsIGRpYWc9RikKcGxvdChuZXR3b3JrKQpgYGAKCgpgYGB7cn0Kc2V0LnNlZWQoMTApCiN0c25lX2NvbnZlcnRlZF9mb29kX0RFTCA8LSBSdHNuZShYID0gRURMX0VtYmVkZGluZyAscGVycGxleGl0eT0gMjAwLCBpc19kaXN0YW5jZSA9IEZBTFNFLCBjaGVja19kdXBsaWNhdGVzID0gRkFMU0UpCnRzbmVfY29udmVydGVkX2Zvb2RfREVMIDwtIFJ0c25lKFggPSBFRExfRW1iZWRkaW5nICxwZXJwbGV4aXR5PSAxNTAsIGlzX2Rpc3RhbmNlID0gRkFMU0UsIGNoZWNrX2R1cGxpY2F0ZXMgPSBGQUxTRSkKCnRzbmVfY29udmVydGVkX2Zvb2RfREVMIDwtIHRzbmVfY29udmVydGVkX2Zvb2RfREVMJFkgJT4lCiAgZGF0YS5mcmFtZSgpICU+JQogIHNldE5hbWVzKGMoIlgiLCAiWSIpKQoKdHNuZV9jb252ZXJ0ZWRfZm9vZF9ERUwkY2wgPC0gZmFjdG9yKHJlc3VsdF9mb29kX3VmdF9ERUxfayRjbHVzdGVyKQpnZ3Bsb3QodHNuZV9jb252ZXJ0ZWRfZm9vZF9ERUwsIGFlcyh4PVgsIHk9WSwgY29sb3I9Y2wpKSArIGdlb21fcG9pbnQoKQoKI2dncGxvdChhZXMoeCA9IFgsIHkgPSBZKSwgZGF0YSA9IHRzbmVfY29udmVydGVkX2Zvb2RfREVMKSAgKyBnZW9tX3BvaW50KCkKYGBgCgpgYGB7cn0KbGlicmFyeShwbG90bHkpCiNwYWNrYWdlVmVyc2lvbigncGxvdGx5JykKCnRzbmVfY29udmVydGVkX2Zvb2RfREVMXzNkIDwtIFJ0c25lKFggPSBFRExfRW1iZWRkaW5nICxwZXJwbGV4aXR5PSAxNTAsIGRpbXMgPSAzLCBpc19kaXN0YW5jZSA9IEZBTFNFLCBjaGVja19kdXBsaWNhdGVzID0gRkFMU0UpCgp0c25lX2NvbnZlcnRlZF9mb29kX0RFTF8zZCA8LSB0c25lX2NvbnZlcnRlZF9mb29kX0RFTF8zZCRZICU+JQogIGRhdGEuZnJhbWUoKSAlPiUKICBzZXROYW1lcyhjKCJYIiwgIlkiLCAiWiIpKQoKdHNuZV9jb252ZXJ0ZWRfZm9vZF9ERUxfM2QkY2wgPC0gZmFjdG9yKHJlc3VsdF9mb29kX3VmdF9ERUxfayRjbHVzdGVyKQoKcCA8LSBwbG90X2x5KHRzbmVfY29udmVydGVkX2Zvb2RfREVMXzNkLCB4ID0gflgsIHkgPSB+WSwgeiA9IH5aLCBjb2xvciA9IH5jbCwgY29sb3JzID0gYygnI0JGMzgyQScsICcjMEM0QjhFJykpICU+JQogIGFkZF9tYXJrZXJzKCkgJT4lCiAgbGF5b3V0KHNjZW5lID0gbGlzdCh4YXhpcyA9IGxpc3QodGl0bGUgPSAnRGltMScpLAogICAgICAgICAgICAgICAgICAgICB5YXhpcyA9IGxpc3QodGl0bGUgPSAnRGltMicpLAogICAgICAgICAgICAgICAgICAgICB6YXhpcyA9IGxpc3QodGl0bGUgPSAnRGltMycpKSkKcApgYGAKCgo=